module const_mod

	use, intrinsic :: IEEE_Arithmetic

	integer, parameter :: r8 = 8

	real(r8), parameter :: pi    = atan(1.0_r8) * 4.0_r8
	real(r8), parameter :: pi2   = pi * 2
	real(r8), parameter :: pi05  = pi * 0.5_r8
	real(r8), parameter :: deg   = 180._r8 / pi
	real(r8), parameter :: rad   = pi / 180.0_r8
	real(r8), parameter :: eps   = epsilon(1.0_r8)

	real(r8), parameter :: radius = 6.37122d6
	real(r8), parameter :: g      = 9.80616d0
	
	real(r8), parameter :: Rd     = 287.d0 ! Gas constant for dry air
	integer, parameter :: west  = 1
	integer, parameter :: east  = 2
	integer, parameter :: south = 3
	integer, parameter :: north = 4

end module const_mod